home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011b.d64 / joystick test (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  347b  |  14 lines
  1. 10 PRINT"[147]"
  2. 15 INPUT"PORT 1 ODER 2";A
  3. 20 DEF FN JOY(X)=INT((LOG(255.5-(PEEK(56322-X)OR224)))/LOG(2)+2)
  4. 30 PRINT"[147]"
  5. 40 PRINT""
  6. 50 Q=FN JOY(A)
  7. 60 IFQ=1THEN PRINT"NULLSTELLUNG          "
  8. 70 IFQ=2THEN PRINT"OBEN                  "
  9. 80 IFQ=3THEN PRINT"UNTEN                 "
  10. 90 IFQ=4THEN PRINT"LINKS                 "
  11. 100 IFQ=5THEN PRINT"RECHTS                "
  12. 110 IFQ=6THEN PRINT"FEUER"
  13. 120 GOTO 40
  14.